home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / tcp / facts.lha / facts2.9 / Install < prev    next >
Text File  |  1999-09-11  |  3KB  |  110 lines
  1. ; $VER: FACTS2Install 1.3 (11.09.99)
  2.  
  3. (welcome)
  4.  
  5. (set @default-dest
  6.     (askdir
  7.         (prompt "Where would you like to install FACTS?")
  8.         (help "It is recommended that FACTS be running all the time, so "
  9.         "WBStartUp is the logical place.\n\n" @askdir-help)
  10.         (default "SYS:WBStartUp")
  11.     )
  12. )
  13.  
  14. (startup "RexxMast"
  15.     (prompt "FACTS REQUIRES ARexx to be active when it starts up.  "
  16.     "To do this, the RexxMast command should be executed in your "
  17.     "user-startup script.\n\nDoes this need adding? (if you are not "
  18.     "sure, it is safe to proceed with this anyway)")
  19.     (help @startup-help)
  20.     (command "RexxMast >NIL:")
  21.     (confirm "expert")
  22. )
  23.  
  24. (set #already-installed (exists (tackon @default-dest "Facts.info")))
  25.  
  26. (if #already-installed
  27.     (
  28.         (copylib
  29.             (prompt "Please check the version of FACTS you are copying against "
  30.             "any which might already be installed.")
  31.             (help @copylib-help)
  32.             (source "Facts")
  33.             (dest @default-dest)
  34.             (optional "askuser" "force" "oknodelete")
  35.         )
  36.     )
  37.  
  38.     (
  39.         (copylib
  40.             (prompt "Please check the version of FACTS you are copying against "
  41.             "any which might already be installed.")
  42.             (help @copylib-help)
  43.             (source "Facts")
  44.             (dest @default-dest)
  45.             (infos)
  46.         )
  47.  
  48.         (tooltype
  49.             (prompt "Do you want FACTS to run silently in the background?\n\n"
  50.             "If you would prefer it to show the GUI on startup, please skip "
  51.             "this part.")
  52.             (help @tooltype-help)
  53.             (dest (tackon @default-dest "Facts"))
  54.             (settooltype "CXPOPUP" "NO")
  55.             (confirm "expert")
  56.         )
  57.  
  58.     )
  59. )
  60.  
  61. (copyfiles
  62.     (prompt "Do you want to copy the documentation?")
  63.     (help @copyfiles-help)
  64.     (source "Facts.guide")
  65.     (infos)
  66.     (dest "HELP:English")
  67.     (optional "askuser" "force")
  68.     (confirm "expert")
  69. )
  70.  
  71. (if (exists "libs:locale.library")
  72.     (copyfiles
  73.         (prompt "Select languages you wish to install (English is built in)")
  74.         (help "FACTS supports locale.library!")
  75.         (source "catalogs")
  76.         (dest "LOCALE:catalogs")
  77.         (all)
  78.         (confirm "expert")
  79.     )
  80. )
  81.  
  82. (copylib
  83.     (prompt "Do you want to install the example ARexx script in REXX:?\n\n"
  84.     "This will allow you to set your clock by calling rx "
  85.     "REXX:correctclock.rexx at any time (subject to being on-line of "
  86.     "course)")
  87.     (help @copyfiles-help)
  88.     (source "correctclock.rexx")
  89.     (dest "REXX:")
  90.     (optional "askuser" "force")
  91.     (confirm "expert")
  92. )
  93.  
  94. (working "Starting ARexx...")
  95.  
  96. (run "RexxMast >NIL:")
  97.  
  98. (rexx "install.rexx"
  99.     (prompt "I will now quit any old versions of FACTS, and "
  100.     "load the new one")
  101.     (help "Does what it says!  Needs ARexx to be running.")
  102. )
  103.  
  104. (set #time (getenv "T:TIME"))
  105.  
  106. (exit "Finished!\n\n\nThe current time is\n\n" #time
  107. "\n\n\nFACTS has been started, please ensure your timezone is set "
  108. "correctly and then save config." (quiet))
  109.  
  110.